home *** CD-ROM | disk | FTP | other *** search
/ El Mac 9 / El Mac 9.iso / Shareware / Applications / Extended Calculator 2.01 / Calculator programs / Random draw II < prev    next >
Encoding:
Text File  |  1996-02-22  |  336 b   |  14 lines  |  [TEXT/EcA1]
  1. x:=0;
  2. while(x<.999);
  3.     x:=rnd;
  4.     if (x<.1);
  5.         POval(random(1,100),random(1,100),random(1,100),random(1,100));
  6.     end;
  7.     if(x<.8);
  8.         PRect(random(1,600),random(1,300),random(1,600),random(1,300));
  9.     end;
  10.     if (x>.8);
  11.         PPat(random(1,5);
  12.         Color(random(1,100),random(1,100),random(1,100));
  13.     end;
  14. end;